home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / game / demo / Mattonite.lha / Mattonite / PulisciIPunteggi.AMOS / PulisciIPunteggi.amosSourceCode
AMOS Source Code  |  2001-06-04  |  471b  |  21 lines
  1. '-> PulisciIPunteggi by Stefano Regattin 
  2. 'i> 4 giugno 2001  
  3. '----------------- 
  4. PUNTEGGI$=Dir$+"TopHundredScores"
  5. Dim GIOCATORE$(99)
  6. Dim PUNTEGGIO$(99)
  7. Open In 1,PUNTEGGI$
  8. For POSIZIONE=0 To 99
  9.  Input #1,GIOCATORE$(POSIZIONE)
  10.  Input #1,PUNTEGGIO$(POSIZIONE)
  11. Next POSIZIONE
  12. Close 1
  13. Kill PUNTEGGI$
  14. Open Out 1,PUNTEGGI$
  15. For POSIZIONE=0 To 99
  16.  If Val(PUNTEGGIO$(POSIZIONE))>0
  17.   Print #1,GIOCATORE$(POSIZIONE)
  18.   Print #1,PUNTEGGIO$(POSIZIONE)
  19.  End If 
  20. Next POSIZIONE
  21. Close 1